10 PRINT"[147]":GOSUB70
20 POKE 53281,0:POKE 53280,0:POKE2043,8
30 PRINT"[144]":PRINT""
40 PRINT "LOAD";CHR$(34);F$;CHR$(34)",8"
50 PRINT"RUN"
60 POKE631,13:POKE632,13:POKE198,2:END
70 POKE53280,0:POKE53281,0:IFFTHENRETURN
80 PRINT"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
90 A$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
100 B$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
110 C$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
120 PRINTC$;:FORI=1TO3:PRINTA$C$B$C$;:NEXT
130 PRINT"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
140 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
150 A$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
160 POKE214,12:PRINT"[145]";:FORI=1TO32:PRINTA$;:NEXT:PRINT"[155]"
170 FORI=1TO5:READA$:GOSUB180:NEXT:GOTO190
180 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
190 F$="BIORHYTHM":POKE214,24:PRINT"[145]"SPC(13)"[204] [207] [193] [196] [201] [206] [199]":RETURN
200 DATA"[194][201][207][210][200][217][212][200][205][160][205][193][195][200][201][206][197]","BY [194]RIAN [194]OESE"
210 DATA"[208]UBLISHED ON [204][207][193][196][211][212][193][210] #76","[211]UBSCRIPTIONS 1-800-831-2694"
220 DATA"[195]OPYRIGHT ([195]) 1990 [211]OFTDISK"